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STITLE (VACIS2) 
$REGISTERSANK (0 , 1 ) 



FIRMWARE OPERATING SYSTEM 

• for the 

VEHICLE AUTOMATED CONTRABAND INSPECTION 
SYSTEM (VACIS) 
12-AUC-96 

* 

* by Eric Ackermann/Ken Valentine /Jeff Adams 

* Instrument Products Organization 

♦ Copyright 1996,97,98,99 by SAIC 



This work is dedicated to the memory of Xen 



The target CPU is a DALLAS 87C520 «P running 
;at 24 Mhz. 

; REVISIONS 

;V0O.O - As released for 24 Khz crystal and 

RS-485 half -duplex serial communications. 

Serial comm handled by Siemens SAB 82526 

High Level Serial Communications Controller. 
; SCC is operated as a slave in Normal Response 

Mode with Buad Rate set by the Master's 
; (System Controller's) clock. 

•* 12-AUG-96 

;V01.2 Cleaned up the buffer handling of counter data 
; in order to fix bug of not ignoring the unused 

; counters. Added the WRITE_DAC command handler. 

Uncommented the DAC init. Added READDAC command. 
; Added Counter Reset command. 

** 20- JAN- 98 •* 

** Jeff Adams 

;V01.3 Added Stretch Memory to DAC communication. This 
; is needed as running at full speed violates rain 

WR pulse width of AD7228 DACs. 

21-JAN-9B •* 
•* Jeff Adams •* 

;V02.0 Removed unused code, added comments, fixed minor bugs 
and renamed file to VAC IS 2. ASM from VACISBBD.ASM in 
preperation for first system demo. 

** 26-JAN-98 
*• ESA •• 

;V02.1 Put SJMP NXT_IC line back in for proper counter 
; reading. Done by JA 1-29-98, documenting now. 

** ll-FEB-98 ** 

; ** ESA ** 

;V02.2 Set default DAC (discriminator) setting to optimum value 
of 225. 

ll-FEB-98 *• 
*• ESA •* 

,-unreleased Add packet mode for PC to slave comm. 

** 12-JAN-99** 
ESA •* 

MEMORY MAP FOR DS87C520 RAM REGISTERS 
; (Regs $00-$3F, Directly/ Indirectly Addressable RAM) 
(Includes GPRs and Bit- Addressable RAM) 

\ ttttittti^titttiittiSiimttiltmitittiittRtttiiiitiU 

; ■ RAM >BYT0,4,8.C 1 Bm,5,9,D > BYT2,6.A,E , BYT3,7,B,F« 
; CAAAAAAAAAAAAAAAAJUUUUUU^ 

; • REG_00 » R0-BANK0 1 R1-BANX0 » R2-BANX0 1 R3-BANK0 • 

; • > (MAIN) 1 (MAIN) » (MAIN) » (MAIN) • 
; CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA^ 

; ■ REG 04 * R4-BANK0 > R5-BANK0 ' R6-BANK0 » R7-BANK0 ■ 

; • > (MAIN) > (MAIN) » (MAIN) 1 (MAIN) • 

; caaaaaaaAMaaaaaaaaaaaaaaJUUUUU^ 

; ■ REG 08 > R0-BANK1 > Rl-BANKl > R2-BANK1 » R3-BANX1 • 

; ■ ~ J RO RBI 1 " IC.CNTR *SND_PKT_ • 
; ■ >EX07t1 'TO >T0 *T1 SIZ* 
; caAAaaJUUUUUUUUUUUUU^ 

; ■ REG 0C » R4-BANX1 > R5-BANK1 » R6-BANK1 R7-BANK1 • 

; • ~ i ' CNTR_RDS > LTCH_CNTR_TMR • 
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ill 



85 



90 



95 



100 



105 



110 



115 



120 



125 



130 



135 



140 



145 



150 



155 



160 



• j t i >T0 J T0 LB HB - • 
rAAAAAAAAAAAAAAAAAAAAAA^ 

• REG 10 J R0-BANK2 » R1-BANK2 > R2-BANX2 * R3-BANX2 • 

• ~ > > » » • 
cAAAAXAAAAAAAAAAAAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAXAAAA? 

■ REG 14 > R4-BANK2 > R5-BANK2 > R6-BANK2 > R7-BANK2 • 

~ » » » * ' 
cAAaaaaaAaaaaaaaAaaaaAaaaa^ 

• REG 18 > R0-BANK3 ' R1-BANK3 » R2-BANK3 > R3-BANK3 ■ 
. ~ i > > » ' 
rAAAAAAAAAAAAAAAAAAA^^ 

• REG 1C > R4-BANX3 1 R5-BANK3 » R6-BANK3 ' R7-BANX3 ■ 

i > ' 1 • 
qAaaaaaaaaaaAaaaaaaaaaaaaaaaaaaaaa^ 

• REG 20 » » PROG_F > 1 ' 
. " j > > 1 * 
CAA aaaaaAaaaaaa^^ 

» REG_24 > > 1 ' ' 

. > j j » • 

C ;UUUUUU^AAAAAAAAAAAAA^^ 

• REG_28 * 5 1 1 ' 
. j i j i • 

CAAA aaaaaaaaaaa^^ 

■ REG 2C 1 J 1 ' STATUS " 

• ~ J » 1 , J 

qAAAAAAAAAAAAAAA^^ 

• REG 30 J CNTR BUF..*.(NON PKT) * ' ' 
<^AAAAAAAAAAAAAAAAAA^^ 

• REG 34 ' ' * * " 

• REG 3C 3 * * * " 

MEMORY MAP FOR DS87C520 RAM REGISTERS 
(Regs $40-$7F. Directly/ Indirectly Addressable RAM) 

tmtitimimttmmitmimMmmmmmttiitu 

• REG 40 *ODD_ BEGIN » * 1 

(^uuuuuuuuuuuuouuu^aaaaw 

• REG 44 > • 1 5 * 

■ REG 48 * * 1 1 " 

qXaaaaaaaAAaaaaaaaaaaaaaaaaa^ 

• REG 4C 1 * * '...CNTRS ■ 

CAWUaaaaaaaaaaa^^ 

■ reg 50 3 ovrflw0_7 3 ovrflw8_f 3 temp.lsb * temp_msb • 
(^AAaaaaaAaaaaaaaaa 

• R£G_54 3 GC_RCV_LSB» ... 'GCJlCV.MSB'RI^RCy LSB* 
(^AAAAAAAAAAAAAAAAAAAAA^ 

• REG.58 3 RL_RCV_MSB 3 NUMERR_LSB 3 NUMERR_MSB ' " 

(^aaaaaaaaaaaAAAAaaaaW 

• reg 5C 3 1 ' * * 

C aaaAaaaaaaaaaAaaaaaaaaaaaa^^ 

• REG 60 3 CUK-LTCH.CNTR_TM 3 PKT_BUF_IN • 

■ " * LB KB 'LB HB ■ 
qAaAAAAAAAAAAAAAAAAAAA^^ 

■ REG 64 3 PKT_BUF_OUT * * * 

• ~ > LB HB 1 ' ' 

(^UUUUU^aaaaaAAa^^ 

• REG 68 * 1 1 1 " 

CaaaaaWUWAaaaaaaaaaaa^^ 

• REG 6C > * * 1 " 

• REG 70 1 * * 1 * 
(^U^AaaAaaAaaaaaaaaaaaaaA 

■ REG 74 > 1 ' 1 * 

• R£G_78 » 1 * * " 

CaAaaaaaaaaaaaaaAaaaaaaaa^ 

■ REG 7C * - 1 1 1 * 

ttttiiitilttmittttitttlttttttimtMitilttttmiit* 

(Regs $80-$9F. Indirectly Addressable RAM) 
ttttttitmttitmttMttmiltiMiMittiiMMtiitit* 

• REG 80 'DUMYO LSB »DUMYO_MSB >DUMYl_LSB > ' 

qAA AAAXmAAAAAAAAAAAAAAAAAAAAAAAAAA^ 

• REG_84 > > • > • 
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u 



165 



170 



175 



180 



185 



190 



195 



200 



205 



210 



215 



220 



225 



230 



235 



240 



• REG 88 1 * 1 1 " 

• REG 8C 1 * * 1 * 

CAAaaAaaAaaAaaAaa^^ 

• REG 90 * ' J 1 * 

• REG 94 1 1 ' ' ' 
■ REG_98 > * 1 1 * 

• REG 9C s 1 1 1 DUMYF_MSB • 



MEMORY MAP FOR DS87C520 RAM REGISTERS 

(Regs $A0-$FF, Indirectly Addressable RAM) 

tittitiilMiitiittitMmntmnmititimtiitmttU 

• REG AO 1 DUMYOF0_7 5 DUMYOF8_F 1 J " 

• REG A4 * ' 1 ' * 

caaaaaajuuuuaaaaa^^ 

■ REGA8 J > » J * 

• REG AC ' 1 » ' i • 

■ REG BO > 1 1 J * 

C AJUWAaAJUUUUUAA^^ 

• REG_B4 >REC BUFFER* >STRT RFIFO 1 • 

• >REC CNT_LO'REC CNT_HI J HDLC_CNTL ' COMMAND • 

■ REG B8 >HDLC_STTS/ 1 ' ' ' 

• » DACV/ 1 DACV+1/ » DACV+2/ 5 DACV+3 • 

• > SYNC | NEW_ » NEW_LTCH_CNTR_TM 1 ' 

• >PKT SI2 1 LB HB 1 * 
CAAAAAAAAAaAAAAAA^^ 

■ REG_BC 1 1 * * " 

• j dacv+ 4 * 1 dacv+ 5 1 dacv+ 6 » oacv+ 7 • 
cAaaaAaaaaaaaaaaaJUIaAaaaaAaa^ 

• REG_CO J > > > 1 

• > DACV+8 1 DACV* 9 1 DACV+A J DACV+B 1 

• REG_C4 * > 1 1 * 

■ * DACV+C 1 DACV+D 1 DACV+E * DACV+F ■ 
CAAAAAAJUUUUUVAAA^^ 

• REG.C8 >RFIFO MAX » » » ■ 

• »HDLC_STTS s 1 1 1 

caaaaaaAaaajuuuu^^ 

■ R£G_CC > DAC_SAV i i ' * 

caAAaaaaaaaaaaMaaaaaWUUU^^ 

• REG DO * * * * 1 

• R£G_D4 1 » 1 1 • 

; • REG D8 1 1 3 >..DAC_SAV • 
; (JJJtfAHJJ^^ 

; • REG DC 1 1 1 1 " 
; gAAAAAJUUUUU^AAAAAAAAAAAAAAAAA^^ 

; • REG_E0 » STACK > STACK* 1 » STACK+2 1 • 

; • REG_E4 > » » 1 • 
; caAAAAAJUUaaaaaa^^ 

; ■ REG E8 * * * ' * 

; ■ REG EC * * * 5 * 

; caaaAAaaaAaJLaaAAaaaa^ 

; • R£G_F0 i > » > ■ 

j ■ REG F4 » * 1 1 • 

; (^uuuuuuuuuuuaaaaaaaaaaaaaa^ 

; • REG_F8 1 * * * " 

? caaawuuuuiajuuuuu^^ 

; • REG FC 1 1 * * STACK+1F • 

; MiiiIiiiiiiiiiiiiiitiiilliliiiXiililliliMiwiiiiiiiH 

; 

;* 



03 

m 

i 



8 
5 



MEMORY ALLOCATION 



SNOLIST 

$INCLUDE ( 87C52 0 . PDF) 
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245 



250 



255 



260 



265 



270 



275 



280 



SLIST 

DSEG 
RO.RBl 
IC_CNTR 
SND_PKT_SIZ 

CNTR_RDS 



EQU 
EQU 
EQU 



LTCH_CNTR__TMR_LB 
LTCH_CNTR_TMR_HB 



BD^ADR 

PROG_F 

STATUS 

CNTR.BUF 

ODD_BEGIN 

OVRFLW0J7 

0VRFLW8_F 



TEMP_LSB 
TEMP_MSB 
GC_RCV_LSB 
GC_RCV_MSB 

RL_RCV_LSB 
RL_RCV_MSB 

NUMERR_ LSB 
NUMERR_MSB 



;On-board RAM byte definitions 
08H ;R0, Reg Bank 1. Needs label for PUSH/ POP Instructions 
OAH ;Cntr for loops doing I/O w/cntr ICs (R2 Bank 1). 
OBH /Num of PKTs to be Xmitted. Dec'd in Tl during PKT Xmit and 
;...set to NEW_PKT_SIZ when Xmit done 
EQU ODH ,-Init'd to NEW_PKT_SIZ and dec'd to indicate PKT done 
; . . . (R5, Bank 1) . 
EQU OEH ; Software timer inc'd in TO int to cause latching 

;...of counters. Low byte (R6, Bank 1). 
EQU OFH ;High byte (R7, Bank 1). 
1FH ; Printed Circuit Board Adr 

/ . . .as read from DIP switch 
21H ; Program status/control flags 
2FH ; Serial status-byte bits 

; Start of buffer for 32 bytes of counter data 
.•Beginning of Odd counter bank in buffer. 
; Overflow byte for counters 0-7 

; Over flow byte for counters 8-15. OVRFLW bytes not 
;.. .currently used. When implemented will indicate 
/...which counter has overflowed. See CTROVF bit. 
;Temp low byte 

;Temp hi byte (1 bit in TEMP_MSB.0) 
54H ;Get Counts Received counter low byte (Real&Fake) 
56H ;Get Counts Received counter high byte (Real&Fake). Used for 

;... diagnostics only. Xmitted with SND.DEBUG cmnd. 
57H ; Reloads Received counter low byte 
58H /Reloads Received counter high byte. Used for 

/...diagnostics only. Xmitted with SND — DEBUG cmnd. 
59H /Number of Errors counter low byte 
5 AH /Number of Errors counter high byte. Used for 

; . . .diagnostics only. Xmitted with SND.DEBUG cmnd. 



EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



EQU 
EQU 
EQU 
EQU 

EQU 
EQU 

EQU 
EQU 



3 OH 

4 OH 
50H 
51H 



52H 
53H 



CUR_CNTR W LTCH_TM_LB EQU 060H 

CUR_CNTR_LTCH_TM_HB EQU 061H 

PKT_BUF_IN_LB EQU 062H 

PKT_BUF_IN_HB EQU 063H 

PKT_BUF_OUT_LB EQU 064H 

PKT_BUF_OUT_HB EQU 065H 



Reload value for LTCH_CNTR — TMR during PXT. Reset 
...to NEW_LTCH_CNTR.TM at start of new PKT (in TO). 
Ptr for loading a new set of cntr data from cntr latches 
...to on-board RAM buffer for compiling current PKT. 
Ptr for loading a complete PKT buffer into Siemens 
...XFIFO for transmission. 







DUMY0_LSB 


EQU 


80H 






DUMYOF0_7 


EQU 


0A0H 
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S : 




DUMYOF8.F 


EQU 


0A1H 


1s=? 














R£C_CNT_LO 


EQU 


0B4H 


O 


290 


KDLC_CNTL 


EQU 


0B6H 






COMMAND 


EQU 


0B7H 


'! ? 




DACV 


EQU 


0B8H 




295 










NEW_PKT_SIZ 


EQU 


0B8H 



300 



305 



310 



315 



320 



NEW_LTCH_CNTK.TM - .LB 
NEW_LTCH_CNTR_TM_HB 



DAC.SAV 
STACK 

BSEG 

RESET_526 

GATE 

DIO 

SCK 

SEL 

SPRP15 

SPRP16 

SPRP17 

INT_526 

INT_RQ 



STS.XDU 
CTROVF 
STS.INVALID 
STS_RDO_RFO 



; LB of 1st test data word (Fake Data) 
/Overflow byte for dummy data 
/ . . .words 0-7. 

/Overflow byte for dummy data 

; words 8-0fh. 

;Low byte of rec'd byte count 
. . .as read from SCC RBCL reg 
HDLC Control byte - first byte 
... in RFIFO for all messages 
2nd byte of every message - 
/...command from system cntrlr 

/Rec buffer location for DAC settings sent with the 
f...SET_DACS command. 

/For PKT annds rec buffer location for the packet size of the 
; . . .next packet. 

EQU 0B9H ;Rec buffer location for time between cntr latches as 
EQU 0BAH /...sent by PKT_SYNC, PKT__ASYNC or TST_PKT_S commands. 

Format is 65535- (# of TO intervals). Adjusted by 
Master to account for varying speeds of target. 
EQU 0CCH /Used to save DAC values for readback 
EQU 0E0H /Bottom of stack 

;On-board RAM bit definitions 



BIT 


P1.0 


82526 RESET, active high 


BIT 


Pl.l 


82C54 GATE 


BIT 


PI. 2 


Data I/O for DS1620 


BIT 


PI. 3 


Clock for DS1220 temp sense 


BIT 


PI. 4 


Select for DS1620 


BIT 


PI. 5 


SPARE 


BIT 


PI. 6 


Spare 


BIT 


PI. 7 


Spare 


BIT 


P3.2 


'82526 Interrupt 


BIT 


P3.3 


'External Interrupt 



BIT STATUS. 0 
BIT STATUS. 1 
BIT STATUS . 2 
BIT STATUS. 3 



...Request (-INT1) 
. . . (not used) 

Transmit Data Underrun (XDU) 

...CPU not feeding XFIFO fast enough 

Count overflow in one 

...or more counters 

A valid frame received but the 

. „ .message was not valid 

Rec Data Overflow (RDO) in RSTA 
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325 - . - ;.. .or Rec Frame Overflow (RFO) 

; ... in EXIH 

STS_OTHER BIT STATUS . 4 ; General status bit to indicate 

; . . .an unexpected error type 
; . . . reported by SCC 
330 STS_PCE BIT STATUS. 5 ; Protocol Error reported 

~" / . . .on last reception 

STS_ RAB BIT STATUS. 6 ; Received Aborted message 

; . . .status from SCC 

RES PKT BIT STATUS. 7 ; Indicates last PKT never sent or aborted - there is 

335 ~" ; a slight chance this bit is set in error if POLL from 

Master comes after JNB PKT_QUED and before or during 
,* . . .MOV A, IXRES in QUE.PKT sub. 
;STS_CRC BIT STATUS. 7 ; Checksum error in last 

; . . .received message 

340 CNTRS LTCHD BIT PROG_F.O ; Indicates cntrs latched and ready to be read to buffer. 

;...Set in TO int and clr'd after cntrs read. 
PKT_QUED BIT PROG_F.l ; Set after first 32 bytes of a pJct have been loaded into XFIFO. 

; When set EXO will set TF1 on next XPR to force Tl int 

which finishes pkt transmission once initiated. 
345 SYNC CMND BIT PROG_F.2 ; Set in Seimens int when PKT_SYNC or TST_PKT_SYNC cmnd rec'd. 

~ Polled during cntr read to buffer to abort and execute cmnd. 

DATAJTYPE BIT PROG_F.3 ;Clr if data type is real counts in PKT mode, set if test counts. 

;...Set in PKT_SYNC or TST_PKT_SYNC cmnd. 
PKT BUF BIT PROG F.4 ; Indicates current buffer for new cntr data in PKT mode. If clr 

350 " ~ /...loading CNTR_BUF0 , if set loading CNTR.BUFl. 

PKT IN.PROG BIT PROG_F.S ;Set in PKT_SYNC or TST_PKT_SYNC cmnd to indicate PKT mode. All 

;...non-PKT cinnds will call STOP_PKT to clr and end PKT mode. 



NEW__CMND BIT PROG_F.6 ;Set when a valid command 

rec'd, cleared when cmnd 
355 ; ... is being executed. 

XFIFO_RDY BIT PROG_F.7 ; Set on Trans Pool Ready (XPR) 
~" ;...int, cleared when XFIFO 

; . . .is written to. 



360 



365 



XSEG ; External Hardware Definitions. 

; . . . READ /WRITE addresses 
PKT_BUF0 EQU 0OO0H ; Starting address of buffer 0 in on-board IK RAM. 
PKtZbUFI EQU 0200H ; Starting address of buffer 1 in on-board IK RAM. 

/...Each buffer is 1/2K (512 bytes) so can handle max PKT size of 16. 
DIP_SW EQU 04FFH ;DIP Switch Address. LB must be 

;...FF to avoid bus contention on 

external memory read cycle (this may not 

; be needed w/stretch memory) . HB must be 

;...04 so as not to access internal IK SRAM. 



370 


CNTR_0 


EQU 


4000H 


; Counter 


Channel-0 




CNTR_1 


EQU 


4100H 


; Counter 


Channel- 1 




CNTR_2 


EQU 


4200H 


/Counter 


Channel- 2 




CTRL 02 


EQU 


4300H 


; Control 


Word (0-2) 




CNTR_3 


EQU 


4800H 


/Counter 


Channel-3 


375 


/uuuuu 












CTRL35 


EQU 


4BO0H 


/Control 


Word (3-5) 




CNTR_6 


EQU 


5000H 


; Counter 


Channel- 6 




CNTR_7 


EQU 


5100H 


; Counter 


Channel-7 




CNTR_8 


EQU 


5200H 


/Counter 


Channel- 8 


380 


CTRL 6 8 


EQU 


5300H 


/ Control 


Word (6-8) 




;uuuuu 












CNTR_F 


EQU 


6800H 


; Counter 


Channel -15 




CNTR_10 


EQU 


6900H 


/Counter 


Channel- 16 




CNTR_11 


EQU 


6AO0H 


/Counter 


Channel- 17 


385 


CTRLF11 


EQU 


6BO0H 


/Control 


Word (15-17) 




LLD_0 


EQU 


7OO0H 


; 8-Bit DAC Discriminai 




; . . .Control 


(0-15) 








; Addresses 


8000H to 0BF00H are uncommitted 



390 



395 



400 



-SAB82526 SCC Register Addresses- 



FIFO 


EQU 


0C040H 


;32 byte Transmit/Recieve 








/...FIFO. A write from this 








; . .address goes into XFIFO, 








;...a read comes from RFIFO. 


ISTA 


EQU 


OC060H 


/Interrupt status (read) 


MASK 


EQU 


0CO6OH 


/Interrupt mask (write) 


STAR 


EQU 


0C061H 


/Status register (read) 


CMDR 


EQU 


0C061H 


/Command register (write) 


MODE 


EQU 


0C062H 


/Mode register (r/w) 


TIMR 


EQU 


0C063H 


/Timer register (r/w) 


EXIR 


EQU 


0C064H 


/Extended interrupt (read) 


XAD1 


EQU 


0CO64H 


/Transmit address 1 (write) 


RBCL 


EQU 


0CO65H 


/Receive byte count low (read) 


XAD2 


EQU 


0C065h 


/Transmit address 2 (write) 
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405 



410 



415 



420 



425 



430 



435 



440 



445 



450 



455 



460 



470 



475 



480 



485 



RAH1 EQU OC066H ; Receive address high 1 (Write) 

RSTA EQU OC067H ; Receive status reg (read) 

RAH2 EQU 0C067H .-Receive address high 2 (write) 

RALi EQU 0C068H /Receive address low 1 (r/w> 

RHCR EQU OC069H ; Receive HDLC control (read) 

RAL2 EQU 0C069H ; Receive address low 2 (write) 

XBCL EQU 0C06AH ; Transmit byte count low (write) 

BGR EQU OC06BH ;Baudrate generator reg (write) 

CCR2 EQU 0C06CH ; Channel configuration 2 (r/w) 

RBCH EQU 0C06DH ; Receive byte count high (read) 

XBCH - EQU 0C06DH ; Transmit byte count high (write) 

VSTR EQU 0C06EH ; Version status' (read) 

RLCR EQU 0C06EH ; Receive frame length check (write) 

CCR1 EQU 0C06FH ; Channel configuration 1 (r/w) 

TSAX EQU OC070H ;Time-slot assignment trans (write) 

TSAR EQU 0CO71H ;Time-slot assignment rec (write) 

XCCR EQU 0C072H /Transmit channel capacity (write) 

RCCR EQU 0C073H /Receive channel capacity (write) 



Assembler Constants 



RMC 
RHR 
XRES 
XIP 



sec 

EQU 8 OH 



EQU 4 OH 
EQU 01H 
EQU 04H 



XIF_XME EQU 06H 
XTF EQU 08H 

XTF_XME EQU 0AH 



CMND Reg Commands 

;Rec Mess Complete - indicates data 

;...has been read following RME int, 

; . . .frees RFIFO space, 

/Reset HDCL Receiver - clears all data 

/...from RFIFO and resets sequence number 

/...counters, N(R) and N(S). 

/Transmit Reset - XF1FO is cleared, 

; . . .any mess is aborted and XPR int 

; . . .is generated. 

/Transmit I Frame - initiates the trans 
;...of I frame, address and control field 
; . . .automatically added by SCC. Used when 
/...32 bytes written to XFIFO but mess 
/ . . .not complete. 

zXIF 6 Trans Mess End - indicates data in 
/...XFIFO completes frame. CRC and closing 
/...flag automatically added by SCC. 
/Transmit Transparent Frame - initiates the 
; . . .tranmission of Tranparent frame, address 
;...and control field must be added by uC. Used 
; . . .when 32 bytes written to XFIFO but mess 
; . . .not complete. 

;XTF k Trans Mess End - indicates data in 
; . . .XFIFO completes frame. CRC and closing 
/...flag automatically added by SCC. 



MSTR _JU)D EQU 050H 
SDLC_CTL EQU 003H 



CTL_WD EQU 3 OH 

DAC__INIT EQU 0E1H 
BROADCAST EQU 0FFH 
RD_BAK EQU 0CEH 



/Address of Master (System Controller PC) 
;SDLC Control byte for insertion when sending 
; . . . transparent frames . 

;82c54 Control Word for 

/ . . .2-byte I/O, Mode=0, hex M * 

/Power up with optimum DAC (discriminator) setting of 225 dec 
/Reserved Broadcast (Global) ATTN address 
/Readback command to latch 
; . . .Status and Count of all 
,-...3 82c54 counters 



465 XTAL_MHZ EQU 24 /Crystal frequency in Mhz. Adjust T0LOAD when changed. 



TMP_DLY EQU 65535- (1000*XTALJ1H2) 



T0LOAD EQU 256-200 



/Timer 0 value for 12mS 
/...delay for DS1260 Init. 
;...12mS/{12 (osc. periods /count ) ) * 1000000 
/...(osc. periods/S) » 1000 
; Timer 0 reload for lOOuS interrupt. <XTAI*_J!HZxl0e6 osc/S / 
;...12 osc/cnt) * 100xlOe-6 » 200 (for XTAL^KHZ » 24). 



RDJTEMP 
RD_DACS 



EQU 01H 
EQU 02H 



; System Controller to PCB Commands 

READ_CNTS EQU 00H ;Stop counting, latch counts, clear and restart counters, 
...read latched counts, load data into XFIFO of SCC 
Reads DS1620 temp sensor and loads value into XFIFO. 
Loads XFIFO with current DAC settings taken from DAC.SAV 
...buffer 

Stop, clear and restart all counters without reading them. 
Resets SCC'c Receiver and Transmitter and clears diagnostic 
...counters GC_RCV, RL_RCV and NUMERR. 
Increments each of 16 2-byte dummy count regs and loads 
...into XFIFO along with 2 overflow bytes and STATUS. 
...Overflow bytes set to 0FFH when count regs roll over. 



CLR_CNTRS EQU 03H 
RES — XNR EQU 04H 

TEST_ DATA EQU 05H 
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495 



SND DEBUG EQU 06H 
SET.DACS EQU 07H 

SND_STS EQU 08H 



RES END EQU 09H 



PKT_SYNC EQU 00 AH 
PXT_ASYNC EQU O0BH 
TST_PKT_SYNC EQU OOCH 



Load diagnostic counters, GC_RCV, RL.RCV and NUMERR into XFIFO. 
This command is rec'd with 16 bytes of data. Loads each DAC 
...with corresponding value from receive buffer. 
Resets the SCC Receiver and Transmitter and loads STATUS 
...into XFIFO. This command is executed internally when any 
. . [transmit or receive error is detected. Can also be sent 
.. .by Master. 

Reloads CNTR BUF into XFIFO. CNTR.BUF contains either real 
...cnts from last READ.CNTS cmnd or dummy cnts from last 
. . ,TEST_DATA cmnd. 
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CSEG 

ORG 0O00H 
LJMP RE_SET 



; Vector to initialization code 



ORG 0003H - 

LJMP XINT0.ISR .-Vector to external INTO ISR. Interrupt from SCC. 



ORG OO0BH 
LJMP TMR0_ISR 



; Vector to TIMER0 ISR. 



?LJMP°XINT1_ISR ;Vector to external INTl ISR. Not used. 



ORG 001BH 
LJMP TMR1_ISR 

ORG 0023H 
;LJMP SER.ISR 



/Vector to TIMER1 ISR. Simulated Int to transmit PKT. 
;Vector to Serial (UART) ISR. Not used. 



ORG 0100H 

USING 1 ;BANK (1) .GPRs 

. I EXTERKALO ISR * 

Handles int reo from Siemens SAB 82526. Sets NEW.CMND if a valid command rec d. 
'•SSS SlTO TO if 82526 is ready for more transmit data. Time to service XPR int 
lis critical in PKT mode. In PKT mode has second priority to TO, otherwise highest 
/priority. 
XINT0_ISR: 

CLR 5 PXO^Jthis does not appear to worJc - see pg 18 of Eng NB - ok to remove 
PUSH ACC ;Save Accumulator 

PUSH DPL ;Save Data Pointer Low 

PUSH DPH ;Save Data Pointer High 

MOV DPTR, # ISTA ;SCC Int Status reg < 

MOVX A, 9DPTR ;Read ISTA _^ /VM1 

JNB ACC.4,CK_RME ;Jump if not XMIT Pool Ready (XPR) 

SETB XFIFO_RDY ; Indicates XFIFO ready for more data 

JNB PKT_QUED, EXIT_ISR_XPR 

SETB TF1 

CLR PKT_QUED 
EXIT_ISR_XPR: 

POP DPH 

POP DPL 

POP ACC 
SETB PX0 
clr sprpl7 

RET I 
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CK_RME: 
PUSH 
PUSH 
PUSH 
SETB 
JNB 
MOV 
MOV 
MOVX 
ANL 
CJNE 
MOV 
MOV 
MOVX 



PSW 

R0_RB1 

B 

RS0 

ACC.7,CK_RPF 
R0,A 

DPTR, #RSTA 
A, 8 DPTR 
A.I0F0H 

A, I0A0H, REC_ERR 
DPTR, IRBCL 
R0.#REC^CNT_LO 
A, 9 DPTR 



;Save Processor Status Word 



; Select BANK(l) CPR's 

;jump if not Rec Message End (RME) or XPR 

;Save ISTA for error handling if Rec error found 

;SCC Receive Status Register 

; Check for OK message 

;Mask off low nibble of RSTA 

;VFR and CRC ok bits set if good frame 

;SCC Rec Byte Count Low reg 

;RAM Storage 

;Read count low byte 
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615 
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625 
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MOV 9R0 , A 

MOV DPTR, RBCH 

INC R0 

MOVX A, 9DPTR 

MOV 9R0,A 

CJNE A, #40H,MESS_ERR 

MOV A, 119 
CLR C 
DEC R0 
SUBB A,9R0 
JC MESS — ERR 
MOV B,QR0 
MOV DPTR, # FIFO 
MOV R0 , #HDLC_CNTL 
RD_RFIFO_ LP : 

MOVX A, 9DPTR 
MOV 9R0,A 
INC R0 

DJNZ B,RD_RFIFO_LP 
MOV R0, #COMMAND 
MOV A,#0CH 
CLR C 
SUBB A,9R0 
JC MESS.ERR 
SETB NEW__CMND 
MOV DPTR, #STAR 
CLEAR: 
MOVX 
JB 
MOV 
MOV 



; . . . and store 

;SCC Rec Byte Count High reg 
;Pt to RAM storage 
;Read count high byte 

; and store 

;If count HB not 0, too 
;...many bytes. NRM bit set 
;Max length of valid command 
; Prepare for subb 
;Pt to REC_CNT_LO 
;Rec counts HB is 0, from above 
;Exit if command too long 
;Load cntr for bytes rec'd 
; First address or SCC RFIFO 
; Start of our rec buffer 

;Get byte from RFIFO 

;Load into rec buffer 

; Count off bytes read 

/Loop till done 

;Pt to COMMAND byte of message 

;Max value of valid command 

; Prepare for subb 

; Check COMMAND byte in rec'd mess 

and exit if not valid 
; Indicates new valid command rec'd 
;SCC Status reg 



A.8DPTR 
ACC . 2 , CLEAR 
DPTR, #CMDR 
A,#RMC 
MOVX 8DPTR, A 
CJNE 8R0 , 1 PKT_S YNC , CK_TST_SYNC 
SETB SYNC__CMND 
CKJTST_SYNC: 

CJNE 8R0,#TST_PKT..SYNC,NOT_SYNC 
SETB SYNC_CMND 
NOT_SYNC: 

SJMP EXIT_ISR 



;Wait til Command Executing (CEC) is clear 
;SCC Command reg 

;Send Rec Message Complete command 
; to release space in RFIFO 



Done with message reception. 
...rec'd with no errors. 



Valid command 



MESS_ERR: 

SETB STS_INVALID 
SJMP STS_SET 

REC_ERR: 

JB ACC . 7 , CK_RDO 

SETB STS_OTHER 
CK_RDO: 

JNB ACC.6,CX_CRC 

SETB STS_JlDO_RFO 
CK__CRC: 

JB ACC.5,CX_RAB 
SETB STS^CRC 

SETB ST SMOTHER 
CK-RAB: ■ 

JNB ACC . 4 , NO^ORT 

SETB STS_RAB 
NO_ J ABORT: 

MOV A,R0 
CK^RPF: 

JNB ACC.6,CX_EXIR 

SETB STS.OTHER 
CK-EXIR: 

JNB ACC.0,STS_SET 

MOV DPTR, #EXIR 

MOVX A, 8 DPTR 

JNB ACC.7,CK_XDU 

SETB STS.OTHER 
CK_XDU: 

JNB ACC.6,CK_PCE 

SETB STS_XDU 
CX_PCE: 

JNB ACC.5,CK_RFO 

SETB STS.PCE 
CK_RF : 

JNB ACC.4,STS_SET 

SETB STS_RDO_RFO 
STS_SET: 

MOV COMMAND, #8 
-•*•*•***• this instr 



Indicate a valid frame rec'd but message was invalid 



RSTA in ACC 

Jump if Valid Frame Ready (VFR) 



; Indicate Receive Data Overflow error 



/Indicate a checksum error 
;Set Other bit for unexpected ints 

/Jump if Rec Aborted Mes (RAB) not set 
; Indicate RAB error 

/Restore ISTA to ACC following REC_ERR 

.jump if not Rec Pool Full (RPF) 
;Set Other bit for unexpected ints 

;lf no other intrpts, finish error handling 
/Extended Int Reg. - check other sources 
; . . .of interrupt 

. jump if not XMIT Message Repeat (XMR) 



/Indicate Transmit Data Underrun (XDU) 

.jump if not Protocol Error (PCE) 
/Indicate PCE in Status byte but don't 



/Indicate Rec Frame Overflow (RFO) 

;If error, execute send status command 
does not work! indirect addressable only 
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SETB NEW_CKND 
EXIT.ISR: 
650 POP B 

POP R0_RB1 
POP PSW 
POP DPH 
POP DPL 
655 POP ACC 

SETB PXO 
clr sprpl7 
RET I 



.-Indicates new valid command. 



; Restore PSW 
; Restore DPH 
; Restore DPI* 
/Restore ACC 
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;MMfHHIIH#HI«ltHHItHtH#MtfHHHHMIM 

;» TIMERO ISR * 

;####MMm#MM#M###*#M##Mi##MM#M##M##*#t 

;Used as highest priority interrupt in packet mode. Started with PKT.SYNC or 
;TST PKT SYNC commands to dec software timer ( LTCH_CNTR W TMR ) and latch counters 
;when 0.~Set up as 8-bit auto-reload to reduce overhead. This mode will worJc 
;for timer resolution of up to about 125 uS. For larger values of T0LOAD 16 bit 
; timer mode must be used. Min time to sevice is essential for fastest comm rate. 
;Must be able to interrupt Tl and return before XFIFO is emtied. 
;On power-up timer is set to model and used by INIT_DS1260 to provide 12mS delay. 
TMR0_ISR: 
setb sprpl5 

PUSH PSW ;Save processor status 

SETB RS0 ; Select BANK(l) GPRs 

INC R6 

CJNE R6,*0FFH.EXITJT0_ISR 
CJNE R7,#0FFH,INC_MSB 
SJMP LATCH_CNTRS 
INC.MSB: 

INC R7 
clr sprplS 

SJMP EXIT__T0_ISR 
LATCH_CNTRS : 
setb sprpl6 
PUSH ACC 
PUSH CKCON 
PUSH DPL 
PUSH DPH 
ORL CKCON, tOOlH 
DPTR, f CTRL 02 
R2,#6 
GATE 



;Same as READ_CNTRS subroutine through CALL RESET_CNTRS instr. 



MOV 
MOV 
CLR 
LOOP10: 
MOV 



A, #RD_BAK 



;Set MD0 bit for stretch memory of 1. 
;Point DPTR at 82c54(0,3) 
.-Readbacx all 6 82c54 ICs 
; Disable counting 

ReadbacJc command to latch Status and Count of all 3 
...counters of the IC 
Send readbacJc to IC(i) 
ACC=DPH 

Add offset to next 82c54 
Update DPH 



MOVX 8DPTR, A 
MOV A, DPH 
ADD A, #8 
MOV DPH, A 
DJNZ R2,LOOP10 
MOV DPTR,#CNTRJ> ; Point DPTR at 82c54(0) 



R2,I6 



MOV 
LOOP09: • 

MOV A, #0FFH 
MOVX 9 DPTR, A 
MOVX 9 DPTR, A 
INC DPH 
MOVX 9 DPTR, A 
MOVX 9 DPTR, A 
INC DPH 
MOVX 9 DPTR, A 
MOVX 9 DPTR, A 
MOV A, DPH 
ADD A, #6 
MOV DPH, A 
DJNZ R2,LOOP09 
SETB GATE 
DJNZ R5, PKT_}JOT_DUN 
MOV R1,#0B9H 

MOV CUR_QJTK_LTCH_TM_LB , 9R1 
INC Rl 

MOV CUR_CNTR_LTCH_TM_HB , 9 Rl 
PKTJJOT.DUN: 

MOV R 6 , CUR - CNTR - LTCH - TM_LB 
MOV R7 , CUR_CNTR_LTCH_TM_HB 
SETB CNTRS.LTCHD 
POP DPH 
POP DPL 



; Preload all 6 82c54 ICs 



; Preload CNTR w 0 LSB 
; Preload CNTRJ) MSB 

; Preload CNTR_1 LSB 
; Preload CNTH.1 MSB 

; Preload CNTR_2 LSB 
; Preload CNTR_2 MSB 
;ACC=DPH 

;Add offset to next 82c54 
; Update DPH 

Re-enable counting 
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POP CKCON 
POP ACC 
clr sprpl6 

EXIT_T0_ISR: 
POP PSW 
RET I 



HHHIIfMHHMHMIHHHHHHtfHMIHtMIH 

$ TIMERl ISR ^ 

»»»MMIMM»M«l(»»limHMM»#»»»»M»IUHMM«M 

Simulated interrupt. Initiated in EXO when an XPR Int occurs indicating the start 
of a PKT transmission. Has lowest priority. Loads 32 bytes from buffer 0DPTR1 into 
XFIFO then loops until XFIFO — RDY is set. Continues until buffer is empty. Speed is 
critical to allow a TO Int to occur (possibly with a latch cntrs requirement) and 
not have XFIFO empty. 
TMRl_ISR: 
setb sprpl7 
PUSH ACC 
PUSH CKCON 
PUSH DPL 
PUSH DPH 
PUSH PSW 
PUSH P2 

SETB RS0 ; Select BANK(l) GPR's 

ANL CKCON, I0FEH ;Set to no stretch memory. 
MOV DPL,PKT_BUF_OUT_LB 
MOV DPH , PKT_BUF_OUT_HB 
MOV R4,#32 
MOV P2, #0C0H 
MOV R0,#040H 
CLR XFIFO.RDY 
LOAD_XFIFO: 

MOVX A.9DPTR 
MOVX 0RO,A 
INC DPTR 

DJNZ R4 , LOAD_XFIFO 
MOV R0,#061H 
MOV A, #XTF 
MOVX 8R0,A 
WT_FOR_XPR: 

JKB XFIFO_RDY,WT_FOR_XPR 



;Save Processor Status Word 



CLR 


XFIFO_RDY 


MOV 


R0,#040H 


MOV 


R4.#32 


DJNZ R3,LOAD_XFIFO 


MOV 


R4.#3 


LD_MSG_END: 


MOVX 


A, 9DPTR 


MOVX 


9R0,A 


INC 


DPTR 


DJNZ 


R4 , LD_MSG_END 


MOV 


R0, I061H 


MOV 


A, #XTF_XME 


MOVX 


9R0.A 


MOV 


R0,#NEW_PKT_SIZ 


MOV 


A, 0RO 


CLR 


C 


SUBB 


A, #2 


MOV 


SND_PKT_SIZ.A 


POP 


P2 


POP 


PSW 


POP 


DPH 


POP 


DPL 


POP 


CKCON 


POP 


ACC 


clr sprpl7 


RET I 
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USING 0 ;BANK (0) GPRS 

#t«*i*#tt#il###»4l##<«l#IIH#««**#Mllftfit*#«#*# 

t RESET AND ENABLE ALL COUNTERS I 

tl*ft#«#ll#*M*H##MI#M*l##HIM«###HHH*M«H 

Disable all 16 counters by clearing GATE, then 
preload all counters to FFFFH (which also resets 
the OUT and NULL Status Flags) , and lastly re- 
enable counters by resetting the GATE. It is 
possible that a counter may accumulate one count 
(but no more than one count) between preloading 
of its MSB and resetting of the GATE. Call with stretch 
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810 


; memory 


of 1. 






RESET.CNTRS : 






CLR 


GATE 


; Disable counting 




MOV 


DPTR, ICNTR_0 


/Point DPTR at 82c54(0) 




MOV 


R2, #6 


/ Preload all 6 82c54 ICS 


815 


LOOP02: 
MOV 


A, 90FFH 






MOVX 


9 DPTR, A 


; Preload CNTR.O LSB 




MOVX 


9DPTR, A 


; Preload CNTRJ) MSB 




INC 


DPH 




820 


MOVX 


9 DPTR, A 


/Preload CNTR_1 LSB 




MOVX 


9DPTR, A 


/Preload CNTR.l MSB 




INC 


DPH 






MOVX 


9DPTR,A 


/Preload CNTR_2 LSB 




MOVX 


9DPTR.A 


/Preload CNTR.2 MSB 


825 


MOV 


A, DPH 


/ACC=DPH 




ADD 


A, #6 


/Add offset to next 82c54 




MOV 


DPH, A 


/Update DPH 




DJNZ 


R2,LOOP02 






SETB 


GATE 


/Re-enable counting 


830 


RET 
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in 



tf«tf#HM##M«#«##M####tfHHIIHiH#Hftt«##HUM 

# LATCH ALL COUNTERS AND QUE DATA, # 

H«####HIMH#«HM#«M#tMIHHHI««HUt##MM 

Disable all 16 counters by clearing GATE, then 
issue the readback command to all 6 82c54s (which 
latches the Status and Count) . Next, call the 
RESET_CNTRS subroutine to reset and re- enable all 
counters and then que the data into the counter 
buffer. Also set the corresponding overflow bit 
of any counters that overflow. <- not yet implemented 



READ_CNTRS: 



645 


ORL 


CKCON,#001H 


850 








MOV 


DPTR,#CTRL02 




MOV 


R2,#6 




CLR 


GATE 


855 


LOOP03: 






MOV 


A,#RD_BAK 




MOVX 


9DPTR, A 


860 


MOV 


A, DPH 




ADD 


A, #8 




MOV 


DPH, A 




DJNZ 


R2,LOOP03 




CALL 


RESET_CNTRS 


865 








MOV 


R3.t0 




MOV 


R0 # #CNTX.BUP 




MOV 


DPTR, #CNTR_0 




LOOP04: 




870 


MOVX 


A, 9 DPTR 




JNB 


ACC.7,NO_OVF 




SETB 


CTROVF 




NO_OVF: 




875 


MOV 


CACC.6 




MOVX 


A, 9 DPTR 




MOV 


B, A 




MOVX 


A, 9 DPTR 




JNC 


NO^NUL 


880 








MOV 


B,#0 




CLR 


A 




NO jnjhi 






MOV 


R5,A 


885 


CLR 


A 




CLR 


C 




SUBB 


A, B 




MOV 


9R0,A 




INC 


R0 


890 


CLR 


A 



Set MD0 bit for stretch memory o£ 1. 
. . .Counters require a stretch of 1 even 
. . .at 16 MHz to satisfy worst case 
...conditions. Even with stretch can't 
...go much above 24 MHz for uC crystal. 
...This instruction assumes MDl and MD2 
. . .are clear. 
Point DPTR at 82c54(0,3) 
Readback all 6 82c54 ICS 
Disable counting 

Readback command to latch 
...Status and Count of all 3 
...counters of the IC 
Send readback to IC(i) 
ACC=DPH 

Add offset to next 82c54 
Update DPH 

/Reset and re-enable- all 16 
; . . . counters 

flnit IC counter, cntr (3 counters /IC) 

/Point to counter buffer 

/Point DPTR at 1st IC, 1st counter 

/Read Status of IC(i,j) 
/Jump if no overflow 
/Set the cntr overflow flag 
;...of the STATUS byte 

/Save NULL bit of Status 
/Read count LSB of ICU,j) 
/Save LSB at B 
/Read count MSB of IC(i,j) 
/J\imp if counter has been 

; triggered at least once 

/Clear the count LSB 
/Clear the count MSB 

R5=MSB 

Subtract contents of down- 

counter from 10000H 

LSB of difference 

Save LSB of diff in cntr buf 

Pointer to data MSB 



54 



395 



900 



SUBB A.R5 

MOV 9R0,A ; 
INC RO i 
INC DPH i 
CJNE R0,lOVRFLW0_7, 
SJMP READ 16 ; 

MORE_ CNTRS : 

CJNE R0,IODD_BEGIN, 



;MSB of difference 
;Save MSB of diff in cntr buf 
; Point to next counter LSB 
; Point to next counter 
MORE_CNTRS 

Jump at end of counter buffer. 
2 cntrs not used 

M0RE_CNT2 ;When pntr reaches here, 
...indicates we are at last counter of 
...even bank (U14.CNTR2) which is not used. 





INC 


DPH 


;SJcip unused counter. 




SJMP 


NXT_IC 


;Co To Next IC 




M0RE_CNT2 : 




905 


INC 


R3 


;Loop for all 3 counters of 




* CJNE 


R3,#3,LOOP04 








; each 82c54 




NXT_IC : 




; Reset for next IC (3 counters/IC) 




MOV 


R3,I0 


910 


MOV 


A, DPH 


;Mov DPTR to next IC, 1st counter 




ADD 


A, #5 






MOV 


DPH, A 






SJMP 


LOOP04 


;Get next 3 counters 




READ16 : 






915 


ANL 


CKCON, IOFEH 


;Set to no stretch memory. 




RET 
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;l###IM#*###«IM###l*l#tMMMM#MI**MMMMMt 
; # SET DACS DIFF # 

,l#IMi##*lftMMI#«*M«MIIMI«IIIH#ll»Mt*»#«*l* 

; Writes values from rec buffer to corresponding DAC. Correct order 
; determined by Master. Also copies new DAC values to DAC_SAV buffer. 
;DACs require stretch memory of 1. 



ORL 


CKCON, #001H 


;Set MD0 bit for stretch memory of 1. 




;...DACs require a stretch of 1 to 






satisfy worst case conditions. 






;...This instruction assumes MDl and MD2 






; are clear. 


MOV 


DPTR, #LLD_0 


; Point DPTR at DAC(0) 


MOV 


R0,#DACV 


; Point R0 to DAC val location 


MOV 


Rl, IDAC_SAV 




LOOP16: 






MOV 


A, 9R0 


;Move Desired DAC val in R0 


MOVX 


8 DPTR, A 


; Write value to DAC(m) 


MOV 


8Rl,A 


; Write value to DAC_SAV(m) 


INC 


DPH 


; Point DPTR at next DAC 


INC 


R0 


;Next new value to set to 


INC 


Rl 


; Point to next save spot 


CJNE 


R0,#DACV+16 f liOOP16 ;Loop for 16 DACs 


ANL 


CKCON, IOFEH 


;Set to no stretch memory. 


RET 
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#»#M##tHMM######t#f«llf«»##*Ht#H«HI««l##M 

t SET ALL DACS # 

«MII#M§#iMM#i######IIMMM###iM##MH####M 

Call with desired DAC value in ACC which will 

then be written to all 16 DACs. Also copies new DAC values 

to DAC.SAV buffer. DACs require stretch memory of 1. 



SET__ALL_ DACS : 

ORL CKCON, I001H 



;Set MDO bit for stretch memory of 1. 

; DACs require a stretch of 1 to 

; satisfy worst case conditions. 

; This instruction assumes MDl and MD2 

; . . .are clear. 
; Point DPTR at DAC(0) 
; Point R0 at DAC.SAV(O) 



MOV DPTR, #LLD_0 
MOV R0,#DAC_SAV 
LOOP06: 

MOVX 0 DPTR, A 
MOV 9R0,A 
INC DPH 
INC R0 

CJNE R0,*DAC_SAV+16,LOOP06 ;Loop for 16 DACs 
ANL CKCON, IOFEH ;Set to no stretch memory. 
RET 



; Write value to DAC(m) 
; Write valude to DAC.SAV(m) 
; Point DPTR at next DAC 



970 



;M#l##M#IIMIM##M#M#Mt#MM##il#MU#l#l#MI 
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ft R EAD_DAC_S ETT INGS * 

HM»MMMHMMMMMIM*MHt**«MHtttflHMmi 

Loads current DAC settings, which are stored in DAC.SAV buffer, 
975 ;into XFIFO. 

READ_DAC_S ETT INGS : 
MOV RO. IDAC_SAV 
MOV B, #16 
CALL XMIT_DATA 
980 RET 
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# DS1620 (DIGITAL THERMOMETER) DRIVERS • 
IHMIIIHH IHIMIHIH HIHHHIHIHHimHHHHH IHM 

* •*•**••• INITIALIZE DS1620 * *•••*•••♦••••# 

Call during powerup reset to configure the DS1620 for continuous sampling 
operation with a CPU and initiate the first temperature conversion. Uses R2 of 
the currently selected Register Bank. Uses Timer 0 so it should be undedicated and 
it's interrupt should be disabled. 
INIT.DS1620: 

; Make sure the clock is high 
; Chip Select DS1620 
; Write CONFIG Command 



SETB SCK 
SETB SEL 
MOV A,#0CH 
CALL WRT.8BR 
MOV A,#02H 
CALL WRT_8BR 
CLR SEL 
CLR TR0 
CLR TF0 

MOV TL0 , #LOW (TMP_DLY ) 
MOV TH0, #HIGH (TMP_.DLY) 
SETB TR0 
WAIT_12mS: 

JNB TF0,WAIT__12mS 
CLR TRO 

SETB SEL 
MOV A, ffOEEH 
CALL WRT_8BR 
CLR SEL 
RET 



CONFIG Byte* (Continuous mode with CPU) 

De-select the DS1620 

Ensure Timer 0 is off 

Ensure Timer 0 OF flag is reset 

Reload value for a 

. . .12mS delay 

turn on Timer 0, interrupt should be disabled 
Allow time for DS1620 EE PROM write cycle 
Jump til Timer 0 overflows 
Leave with Timer 0 off 
- Start 1st Temp Conversion 
Chip Select DS1620 

Start Convert T Command (initiate first Temp. 
...conversion - data ready in 1 s) 
De-select the DS1620 



READ DS1620 TEMPERATURE *•******♦♦***•»»"»"•"" 

Read DS1620 and return the Centigrade temperature in TEMP_MSB , TEMP_LSB , 
with 0.5 oC resolution and in two's complement format. That is, a return 
value of FF92H = -55 *C and a return value of 00FAH = +125 ©C. The DS1620 
returns a 9 bit 2's complement # in the range of -55 ©C to +125 ©C, which is 
converted to a full 2 byte 2's comlement number. 
READ_TEMP: 

; Make sure the clock is high 
; Chip Select DS1620 
; Read TEMP Command 



SETB SCK 

SETB SEL 

MOV A,#0AAH 

CALL WRT_8BR 

SETB DIO 

MOV R2,#8 
LOOP004: 

CLR SCX 

MOV C.DIO 

RRC A 

SETB SCK 

DJNZ R2,LOOP004 

CLR SCK 

MOV C.DIO 

SETB SCK 

CLR SEL 

MOV TEMP_LSB , A 

MOV TEMP_MSB,#00 

JNC MSB.DONE 

MOV TEMP_MSB, #0FFH 
MSB_DONE: 

RET 



Make sure DIO is Hi-Z input 



Clock data from DS1620 onto DIO 
Pickup data-bit from DIO 
Rotate data-bit into ACC 
Set serial clock high 
Loop for 8 LSb's 

Clock 9th bit from DS1620 onto DIO 
Pickup data-bit from DIO 
Set serial clock high 
De-select the DS1620 

Assume temp > 3 0 

Create full 2 byte, 2's complement # 



Uses R2 of 



*••***•***»••*•**••*«*• 8-BIT DS1620 WRITE ROUTINE ♦•**•**********••**•*•" 

1045 ; Call with data byte in ACC. Each ACC-bit is written (LSb first) onto DIO 
and followed by a 0/1 transition of SCK. Original data is trashed, 
the currently selected Register Bank. 
WRT_8BR: 

MOV R2,#8 
1050 LOOP002: 

CLR SCK ; Set serial clock low 

rrC A ; Shift next LSb into CARRY 
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MOV DIO,C ; Move data onto DIO , - 

SETB SCK ; Clock data into serial device 

1055 DJNZ R2.LOOP002 ; Write all 3 bits of ACC 

RET 



fU 

in 
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1080 
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1090 



1095 



1100 



1105 



1110 



1115 



1120 



1125 



TRANSMIT DATA **** ** 

Load data into XFIFO of SCC and execute Transmit Transparent Frame command. 
Call with R0 pointing to first byte of data and B containing number of 
bytes to transmit, excluding STATUS which will always be loaded as first 
byte of every message. If XFIFO is not clear, it will be reset prior to 
loading data. Therefore any existing data that has not been retrieved by 
Master will be lost. If more than 32 bytes are to be sent, program 
execution will loop in this routine until transmission has been initiated 
by the Master, allowing remaining bytes to be loaded. The Address and Control 
fields of the SDLC message format are written to XFIFO as required when trans- 
mitting transparent frames. Uses Rl. 



XMIT_DATA: 

JB XFIFO.RDY, LOAD_DATA 

MOV DPTR, *CMDR 
FINISH_CMND: 

MOVX A.0DPTR 

JB ACC. 2 , FINISH.CMND 

CLR PKT.QUED 

MOV A,#XRES 

MOVX 9 DPTR, A 
WT_FOR_INT: 

JNB XFIFO_RDY, WT_FOR_INT 
L0AD_DATA: 

CLR XFIFO_RDY 

MOV A,#MSTR_ADD 

MOV DPTR, f FIFO 

MOVX 9DPTR, A 

MOV A,#SDLC_CTL 

MOVX 8 DPTR, A 

MOV A, STATUS 

MOVX 9 DPTR, A 

MOV STATUS, #0 

MOV A,B 

CLR C 

SUBB A, #29 

MOV -R1,#0 

JC LOOP_B 

MOV B,I29 

MOV R1,A 
LOOP__B: 

MOV A,9R0 

MOVX 9 DPTR, A 

INC R0 

DJNZ B,LOOP_B 

JC MSG_END 

MOV DPTR, #STAR 
FINISH_CMND1: 

MOVX A,9DPTR 

JB ACC . 2 , FINISH_CMND1 

MOV DPTR, ICHDR 

MOV A,#XTF 

MOVX 8DPTR, A 
WT_FOR_INTl: 

JNB XFIFO_RDY, WT_F0R_INT1 

CLR XFIFO.JU>Y 

MOV DPTR.IFIFO 
FINISH-DATA: 

MOV A.9R0 

MOVX 9DPTR, A 
INC R0 

DJNZ R1.FINISH_.DATA 

MOV DPTR, #STAR 
FINISH.CMND2 : 

MOVX A, 9 DPTR 

JB ACC. 2. FINISH_CMND2 
MSG_END: 

MOV DPTR, ICMDR 

MOV A,#XTF_XME 

MOVX 9DPTR, A 

RET 



;Skip reset FIFO if XFIFO ready 
;SCC Command reg (w) , Status reg 



(r) 



; Check CEC bit and jump if a cmnd executing 
;Be sure XPR from XRES does not trigger Tl Int 
;Load reset XFIFO command 

;Wait for Trans Pool Ready INT 
after XFIFO reset 

; Indicate XFIFO not ready during trans 

; Masters address must be inserted for transparent 

; . . . frame . 

;Load into XFIFO 

;SDLC Control byte must be inserted for transparent 
; . . . . frame . 

,* STATUS is 1st byte of every trans 

;Current status sent, so clear 

;Load send count into ACC 

; Prepare for subtraction 

; Check if send count > 29 

; Assume its not k clear 2nd block, counter 

;If not > 29 then jump to send "B* bytes 

;If > 29 then 1st block = 29 plus Adrs,Cntrl & STATUS 

;Load 2nd block counter with remainder 

;R0 initialized to first byte to send 
,-Load byte in XFIFO 
;Pt to next byte 
;Load "B - bytes 

;If C set from SUBB, then entire message loaded 
;SCC Status reg 

; Check CEC bit and jump if a cmnd executing 
;Send Transmit Transparent Frame command 
;...to SCC to send 32 byte 
block. 

;Wait for Trans Pool Ready INT 

; Indicate XFIFO not ready during transmission 

;Pt to XFIFO 

;Load data byte 

;...intO XFIFO 

;Pt to next byte 

;Send remainder of message 

;SCC Status reg 



; Check CEC bit and jump if a cmnd executing 



;Send XT? and Trans Message End 

command to SCC to finish 
; Transparent frame. 



1130 



MIMMIMMMMMMMIMMMHMHHHMIMHI »»IMM»MHHMMIMM»M 

I QUE PKT FOR XMISSION AND RESET PKT BUFFER * 

MM»MMHHMM#MI»MHHMIMHHMM«IM«»MHMMMMM»MHI»MM«I»M*» 
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1190 



1195 



1200 
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.•initiate transmission of current cntr buffer (PKTV and ^ ^the -next buffer for 
; new data. Get here after CNTR.RDS has been dec'd to 0 in TO Int. 
QUE_PKT : 

MOV P2,#0C0H 

PKT QUED,OLD_PKT_XMITTD 

" U ;SCC Command reg (w) , Status reg (r) 

;Load reset XFIFO command 



JNB 
MOV 
MOV 
CLR 



R0,#061H 
A, #XRES 
PKT..QUED 
MOVX 0RO.A 
SETB RES__PKT 



Master must handle aborted frame 

Indicates last PKT never sent or aborted - there is 

a slight chance this bit is set in error if POLL from 
. . .Master' comes after JNB PKT„QUED and before or during 
. 1!mov A,»XRES. 



OLD_PKT_XMITTD: 

MOV R0 , #NEW_PKT_SIZ 
CNTR_.RDS.8R0 
PKT_BUF,LD_BUF1 
PKT BUF__IN_LB , # LOW t PKT.BUFO ) 
PKT_>UF_IN_HB, #HIGH (PKT.BUFO) 

set_outbuf 



MOV 
JNB 
MOV 
MOV 
JMP 
LD_BUF1 
MOV 
MOV 



;Pt to PKT size in rec'd message 
;Set up PKT cntr for current PKT 



PKT_BUF_IN_LB, »LOW(PKT_BUFl) 
PKT_BUF_.IN.HB, ItHIGH (PKT_BUFl> 



SET_OUTBUF: 

CPL PKT„BUF 
JNB PKT_BUF, SND_BUFl 
MOV DPL, #LOW(PKT_BUF0) 
MOV DPH , #HIGH < PKT_BUF0 ) 
JMP PKT_QUE 
SND.BUF1 : 

MOV DPL, #LOW(PKT_BUFl) 
DPH,#HICH(PKT__BUFl) 



XFIFO_RDY, L0AD_PKT 

R0,#061H 

A,#XRES 



MOV 
PKT.QUE: 
JB 
MOV 
MOV 

MOVX 9R0, A 
WT_FOR_INT3 : 

JNB XFIFO_RDY , WT_FOR__INT3 
LOAD_PKT: 

CLR XFIFO_RDY 
MOV A, #MSTR_ADD 
MOV R0.#040H 
MOVX 9R0,A 
MOV A.#SDLC__CTL 
MOVX 8R0,A 
MOV A, STATUS 
MOVX @R0, A 
MOV STATUS , #0 
MOV B,#29 
LOOP_Bl : 

MOVX A, 9DPTR 
MOVX 9R0,A 
INC DPTR 
DJNZ B,LOOP_Bl 
MOV R0,I061H 
MOV A,#XTF 
MOVX 9R0.A 
WT_FOR_INT4 : 

JNB XFIFO_RDY, WT__FOR_INT4 
XFIFO_RDY 
R0,#040H 
B,#32 



CLR 
MOV 
MOV 
LOOP_B2 : 



MOVX A, 9DPTR 
MOVX 9R0, A 
INC DPTR 
DJNZ B,LOOP_B2 
MOV R0.I061H 
MOV A,#XTF 

MOV PKT_BUF_OUT_LB, DPL 
MOV PKT_BUF_OUT_HB , DPH 
SETB PKT.QUED 
MOVX 9R0,A 



SJcip reset FIFO if XFIFO ready 
SCC Command reg (w) , Status reg (r) 
Load reset XFIFO command 

;Wait for Trans Pool Ready INT 
;... after XFIFO reset 

; Indicate XFIFO not ready during trans 

/Masters address must be inserted for transparent 

; . . . frame . 

;Load into XFIFO , m 

;SDLC Control byte must be inserted for transparent 

; frame . 

; STATUS is 1st byte of every trans 
/Current status sent, so clear 



;Load *B' bytes 

;SCC Command reg (w) , Status reg 

;Wait for Trans Pool Ready INT 
; ...after XFIFO reset 



(r) 



;Load *B* bytes 

;SCC Command reg (w) , Status reg 



(r) 



ong 



•Must be here in case XPR occurs due to master poll 

'•TMs X?F should not cause an XPR int because both XFIFOs are 

' now full If an XPR occurs immediatly then a poll from master 

r^st hive ocurred after first XTF above. Since PKT QUED and 

PKT BUF OUT already handled then vector to Tl int is ofc. 
J ["Normally" after returning from QUE__PKT, MAIN loop and TO int run 

;... until master polls and XPR (w/PKT.QUED set) causes Tl int to tr 
entire PKT. 
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RET 

1 READ CNTR LATCHES TO PKT BUFFER # 

Read the latched cntrs into PKT_BUF_IN 
RD_CNTRS_PKT: 

KOV DPL, PKT_BUF_IN_LB 
DPH , FKT_BUF_IN_HB 
P2,#HIGH(CNTR_0) 

R0, #LOW(CNTR — 0) ; Point R0/.P2 at 1st IC, 1st counter 
Rl, #CNTR_BUF~ ; Point to storage of last count data 
R3,#0 ;Init IC counter, cntr (3 counters/ IC) 

CKCON,#001H ;Set MD0 bit for stretch memory of 1. 



MOV 
MOV 
MOV 
MOV 
MOV 
ORL 
LOOP01 
JB 



SYNC.CMND, READALL 

;Read Status of IC(i,j> 
;Read count LSB of IC(i,j) 



MOVX A,9R0 
MOVX A.9R0 
XCH A.8R1 
CLR C 
SUBB A.9R1 
INC Rl 
MOVX 9 DPTR, A 
INC DPTR 
MOVX A.9R0 
XCH A,9R1 
SUBB A.9R1 
INC Rl 
MOVX 9 DPTR, A 
INC DPTR 
INC P2 
MOV A,P2 

CJNE A,#HIGH(CNTR_.ll).MORE_CNTRSl 

SJMP READALL .-Jump at end of counter buffer. 

; . . .2 cntrs not used 

MORE_CNTRSl: 

CJNE A, #HIGH(CNTR_8) ,MORE_CNTRS2 ;When pntr reaches here, 
;.. .indicates we are at last counter of 
;...even ban* (U14,CNTR2) which is not used. 
;Skip unused counter. 
;Go To Next IC 



;Save LSB of diff in cntr buf 
;Read count MSB of IC(i.j) 



;Save LSB of diff in cntr buf 
; Pointer to data MSB 
; Point to next counter 



INC P2 
SJMP NXT_IC1 
MORE_CNTRS2 : 
INC R3 

CJNE R3,#3,LOOP01 



;Loop for all 3 counters of 
;...each 82c54 



NXT_IC1 : 

MOV R3,#0 

MOV A.P2 

ADD A, #5 

MOV P2,A 

SJMP LOOP01 
READALL: 

ANL CKCON, #0FEH . 

MOV PKTJBUF_IN_LB, DPL 

MOV PKT_BUF_IN_HB, DPH 
RET 



Reset for next IC (3 counters/IC) 
Mov P2 to next IC, 1st counter 



;Get next 3 counters 
;Set to no stretch memory. 



1275 



1280 



1285 



1290 



######|########M##fll#MM####m#######l##MI##M 

# INC TST DATA AND READ TO PKT BUFFER * 

.######M#l#lt###l####tttit»»»###««#*****«***«* ### * #il########i#i####i########## 

TDATA_READ: 

- ;Pt to LB of 1st test data 



/Increment test data 

;Jump unless byte rolled over 

;If LB rolled, pt to HB 

; . . .and Increment 



;Pt to data word HB 



MOV R0,fDUMY0_LSB 
INC_.DATA_.LP1: 
INC 9R0 

CJNE 9R0,#0.NO_ROLL_OVRl 

INC R0 

INC 9R0 

SJMP NEXT_LB1 
NO.ROLL.OVR1: 

INC R0 
NEXT_LB1 : 

INC R0 ;Pt to next data word LB 

CJNE R0,#DUMYOF0J7,INC_DATA_.LPl ;Jmp if not at end 
MOV R0,#DUMY0_LSB ;Pt to LB of 1st test data word 

MOV DPL, PKT_BUF_IN_LB 
MOV DPH , P KT_BUF_ I N_H B 
LD_.TST.DTA: 
MOV A,9R0 
MOVX 9 DPTR, A 
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1295 INC RO 

INC DPTR 

CJNE RO, SDUMYOF0_7, LD — TST_DTA ;Jmp if not at end 
MOV P KT.BU F_IN_LB , DPL 
MOV PKT_BUF_IN_HB, DPH 

1300 RET 
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lflM«MMM«M«MI«M«««l«MIMMMI««l4IMIII«ll»»«H«M«(N «M«MM««» 

I END PACKET MODE * 
N |^HI«N«»«MM»«HII«N«MIIIMHyHX» HMMHN»HOH»»»N»»M»N 

STOP_PKT: 
CLR TRO 
CLR PKT_IN_PROG 
CLR CNTRS_LTCHD 
CLR PKT_QUED 
RET 

«M««#M#M«M«««M#««*II«MMMIMM«MMM«IMM 

# INITIALIZATION ROUTINES # 

mMMMM#MMMMMMM#MMMM#M«M#MiM# 

One-Time Initialization Routines. 
RE.SET: 



MOV PMR, iOlOOOlOlB 

MOV IE.#00001011B 

MOV IP,#00000011B 

MOV P1,#00011101B 



; lC=XTAL/4 , ALE disabled for onboard 
;...data access, use IK of onboard XRAM 
; Enable External INT 0, Timer 0 and Timer 1 (EA cleared). 
;EX0 and TO have high PRIORITY 
;Hold 82526- in reset condition 
;GATE=0 



MOV P3,#11111111B 
MOV P2,#11111111B 
MOV P0,#11111111B 



;Set other port pins high 
to recreate powerup 
configuration 

MOV WDCON, ilOOOOOOOB ;SM0D1=1 for dbl Baud rate. Not used 

;...with UART1 
MOV TCON, I00000000B ;Level triggered IRQs if 
; . . .enabled. Also stops 
; . . .both timers and clears 
;...both IRQ edge flags 
MOV TMOD,#00000001B ;TMR0 is 16-bit general purpose and TMRl is Mode 0. TMRO will 

?...be set during PKT SYNC command. TMRl does not matter since it 
;!.!is used as a simulated Int, initiated in EX0. 
MOV CXCON, I0O0000OOB ; Watchdog Timer = 2*17 clocks, TM0,1,2 

;...use 12 clocks, no stretch memory 
MOV SP,#STACX-1 ;Initiali2e Stack Pointer to STACK-1 since SP 

;is inc'd before use. 



MOV R0,#0FFH 
LOOP07: 

MOV 9R0,#0 
DJNZ R0,LOOP07 

CLR RESET_526 



Clear 87C520 Scratchpad RAM 

; Point to end of scratchpad RAM 
; Initialize 87C520 RAM to 0 

;TaXe 82526 out of Reset state (1.8uS min) 



Read PC Board Address 



ORL CKCON, I001H 



MOV DPTR, #DIP_SW 
MOVX A, 9 DPTR 
MOV BD_ADR, A 
ANL CKCON, #0FEH 



;Set MDO bit for stretch memory o£ 1. Appears to be marginal 
/...timing at full speed as LB of DIP_SW must be FF to avoid 
;...bus contention. 
; Point DPTR at DIP Switch 
;Read DIP Switch 
;Save DIP Switch setting 
;Set to no stretch memory. 



Initialize Temp Sensor 

LCALL INIT_DS1620 ;Set up sensor and begin conversions. Returns with TO disabled, 
; . . .TF0 clr. 

MOV TMOD,#02H ;T0 set for 8 bit, auto-reload for use with PKT mode 
Initialize DACs to Mid- Range 

MOV A,#DAC_INIT ; Mid-range setting 

CALL S ET_^ALL_DACS 
Configure 82c54 Event Counters 

ORL CKCON, I001H 



;Set MDO bit for stretch memory of 1. Counters require 
;...a stretch of 1 even at 16 MHz to satisfy worst case 



MOV 
MOV 
LOOP08: 
MOV 



conditions. Even with stretch can't go much above 

;...24 MHz for uC crystal. This instruction assumes MD1 
;...and MD2 are clear. 
DPTR,#CTRL02 ; Point DPTR at 0th 82c54 

R0,#6 /Configure 6 82cS4 ICs 

A, I CTL_WD ;Ctrl Word for counter-0 
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MOVX 


9 DPTR. A 


ADO 


A,#40H 


MOVX 


9 DPTR, A 


ADD 


A,#40H 


MOVX 


9 DPTR, A 


MOV 


A, DPH 


ADD 


A, 18 


MOV 


DPH.A 


DJNZ 


RO, LOOP08 


ANL 


CKCON,IOFEH 



..._(2-byte, Mode=0, hex) 
Write CW for counter- 0 
Offset to next cntr CW 
Write CW for counter-1 
Offset to next cntr CW 
Write CW for counter-2 
ACC=DPH 

Add offset to next 82cS4 
Update DPH 

;Set to no stretch memory. 



Initialize 





MOV 


DPTR. iCCRl 


1390 


MOV 


A,#91H 




MOVX 


9DPTR, A 




MOV 


DPTR, iMODE 




MOV 


A,#08H 




MOVX 


9 DPTR, A 


1395 


MOV 


DPTR, ITIMR 




MOV 


A, #3FH 




MOVX 


9DPTR, A 




MOV 


DPTR, iXADl 




MOV 


A, #M£TR_AED 


1400 


MOVX 


9DPTR, A 




MOV 


DPTR,#XAD2 




MOV . 


A, #MSTR_ADD 




MOVX 


9DPTR, A 




MOV 


DPTR, IRAL1 


1405 


MOV 


A,BD.JVDR 




MOVX 


9 DPTR, A 




MOV 


DPTR, IRAL2 




MOV 


A, # BROADCAST 




MOVX 


9 DPTR, A 


1410 


MOV 


DPTR, IRAKI 




MOV 


A,#0 




MOVX 


9 DPTR, A 




MOV 


DPTR, IRAH2 




MOV 


A,#0 


1415 


MOVX 


9DPTR, A 




MOV 


DPTR, tXBCH 




MOV 


A,#40H 




MOVX 


9DPTR, A 




MOV 


DPTR, #RLCR 


1420 


MOV 


A,*0 




MOVX 


9 DPTR, A 




MOV 


DPTR, #MASK 




MOV 


A, #2EH 




. MOVX 


9 DPTR, A 


1425 


MOV 


DPTR, ICCR2 




MOV 


A,#0OH 




MOVX 


9 DPTR, A 




MOV 


DPTR, ICMDR 




MOV 


A,I00H 


1430 


MOVX 


9 DPTR, A 




MOV 


DPTR, IXBCL 




MOVX 


9 DPTR, A 




MOV 


DPTR, ffBGR 




MOVX 


9 DPTR, A 


1435 


MOV 


DPTR,#TSAX 




MOVX 


9 DPTR, A 




MOV 


DPTR, ITSAR 




MOVX 


9 DPTR, A 




MOV 


DPTR,#XCCR 


1440 


MOVX 


9DPTR, A 




MOV 


DPTR, IRCCR 




MOVX 


9 DPTR, A 



SAB82526 SCC 

Channel Config Reg - 
Power Up, Bus Configuration 

.Clock Mode 1 
Mode Reg. Auto, 8 bit address 
.external timer, RTS auto 
.control, timer res. K332.768 
;Timer Reg. CNT ( retries ) =1 

. . VALUE = 63 : t=k* ( VALUE+1 ) *TCP 
. .t=timeout, TCP=clock period 
; Transmit Address 1 
Masters address 

; Transmit Address 2 
; Masters address 

; Receive Address Low 1 

; Board Address as determined by 

; switch 

; Receive Address Low 2 

; Used for broadcast address in NRM 

; Receive Address High 1 
;0 for single byte address 



Receive Address High 2 

0 for single byte address, 

. . .modulo 8 

Transmit Byte Count High 
Interrupt mode, NRM 

Receive Length Check sets max 
...receive length, after which 
. . . reception is suspended-disabled 
MASK Interrupt disable register 
. . .ICA & EXA channel A interrupts 
...disabled, RSC, TIN disbld 
Channel Control Register 2 RTS 
...active during trans, TxCLK is.. 
...input, CTS disabled, RFS int disbld 
Command Register 
clear commands 

; Transmit Byte Count DMA only 
; clear reg 

;Baudrate Generator not used 
; clear reg 

; Time-Slot Assignment elk 5 only 
; clear reg 

;Time-Slot Assitnment elk 5 only 
; clear reg 

,-Transmit Channel Capacity elk 5 only 
; clear reg . 

,* Receive Channel Capacity elk 5 only 
; clear reg 



1445 



SETB EA 



Enable 87C51 IRQs 

; Global IRQ enable 



power Up 82526 *- 



MOV DPTR, I STAR 
CLEAR0: 
1450 MOVX A,9DPTR 

JB ACC.2.CLEAR0 



;SCC Status /Command reg 



,-Wait til Command Executing (CEC) is clear 



MOV DPTR, #CMDR 
MOV A, IXRES 
1455 MOVX 9DPTR, A 

WT_FOR_INT2 : 



;SCC Command reg 
; reset XFIFO 

;Wait for Trans Pool Ready INT 
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JNB XFIF0_RDY,WT_F0R_INT2 ;.. .after XFIFO reset 



1460 ^JB NEW.CMND, DO_CMND ;Jmp to execute command if pending 

JNB CNTRS_LTCHD, MAIN ; Loop until a new command or counters latched (PKT mode) 

1465 DAT A^T Y P e!! LD_TST_CNTS ^ G ? DAT A_TY P E set indicates real data (PKT mode) 

CALL RD_CNTRS — PKT ; Read cntrs into current PKT_BUF_IN 
SJMP CNTRS_READ 

LD "^E C %ATA„READ ; Inc test data and read into CNTR_BUF_IN 

1470 ^-^^c^^jn ?Poll £or PKT.SYNC or TST.PKT^SYNC cmnds 

MOV A, CNTR RDS ; Load current PKT cntr 

tm7 main ;Jmp if current PKT still in progress 

QUE PKT ioSe filled cntr buffer for xmission. point PKT.BUF.IN to 

, 47 e ;...to other buffer 

SJMP MAIN ;Wait for new cmnd or new cntr data latched 

^"mO^RO.ICOMMAND ;Point to COMMAND byte of rec'd mess 

1480 MOV A.9R0 ;Cet new command from rec buffer 

CJNE A,#PKT_SYNC,CHK_TPKT_SYNC 
CLR TRO 

MOV TLO , IT0LOAD ; Count for lOOuS Int 

I J 14 85 MOV THO, IT0LOAD ; Reload for TLO 

SETB TRO 

'Z CLR NEW_CMND ^ „ , 

V-J ORL CKCON,#001H ;Set MDO bit for stretch memory of l. 

q; CALL RESET.CNTRS 

1490 ANL CKCON,#0FEH ;Set to no stretch memory. 

In MOV RO.#0B9H 

i ~ MOV CUR_CNTR_LTCH_TM_LB ,GR0 

f J INC R0 

• MOV CUR_CNTR_LTCH jrM_HB , 9R0 

1495 MOV LTCH_CNTR_TMR_LB , CUR_CNTR_LTCH_ TM_LB 

MOV LTCH_COTR_TMR_HB . CUR_CNTR_LTCH_.TM_HB 
MOV R0, ICNTR_BUF 
s MOV A # iOFFH 

{ □ INIT_LST_CNT__BUF : 

;~ 1500 MOV 9R0,A 

I'pJ INC R0 

i ~ CJNE R0 . IOVRFLW0J7 , INIT_LST_CNT_BUF 

MOV R0,#NEW PKT_SIZ ;Pt to PKT size in rec'd message 
iff MOV CNTR__RDS,9R0 ;Set up PKT cntr for current PKT 

1505 MOV A,«R0 s 

U CLR C 

SU3B A, #2 

" ^ MOV SND_PKT_SIZ , A 

CLR PKT_BUF 
1510 MOV PKT_BUF_IN_LB , # LOW ( PKT_BUF0 ) 

MOV PKT_BUF_IN_HB, t HIGH ( PKT — BUF0 ) 
SETB DATAJTYPB 
SETB PKT.IN.PROG 
CLR CNTRS_LTCHD 
1515 CLR SYNC_CMND 

CLR NEW.CMND 
SJMP MAIN 

CHK_TPKT_SYNC: 
1520 CJNE A, #TST_PKT_SYNC, CHX_PKT^ASYNC 

CLR TRO 

MOV TLO, t TO LOAD ; Count for lOOuS Int 

MOV THO, IT 0 LOAD ; Reload for TLO 

SETB TRO 

1525 MOV RO , I DUMY0_LSB ;Pt to LB of 1st test data 

CLR_TST_DATA: 
MOV 0RO,IO 
INC RO 

CJNE R0,tDUMYOF0J7,CLR_TST_DATA 
1530 MOV RO,IOB9H 

MOV CUR_CNTR_LTCH_TH_LB , 9R0 
INC R0 

MOV CUR_CNTR__LTCHJTM_HB. 9R0 
MOV LTCH CNTR.TMR_LB.CUR_CNTR_LTCH_TM_LB 
1535 MOV LTCH_CNTR_TMR_HB , CUR_CNTR_LTCH_TM_HB 

MOV R0,INEW.PKT_SIZ ; Pt to PKT size in rec'd message 
MOV CNTR_RDS,eR0 ;Set up PKT cntr for current PKT 
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MOV A,8R0 - 

CLR C 
1540 SUBB A, #2 

MOV SND,PKT_SIZ,A 

CLR PKT„BUF 

MOV PKT BUF_IN LB, #LOW(PKT_BUF0) 

MOV PKtIbUF_IN_HB, »HICH <PKT„BUF0) 

1545 CLR DATA_TYPE 

SETB PKT_IN_PROG 

CLR CNTRS.LTCHD 

CLR SYNC_CMND 

CLR NEW_CMND 
1550 JMP MAIN 

CHX_PKT__ASYNC: 

CJNE A , # PKT_ASYNC , CHK_READ_CNTS 
CLR NEW.CMND 
15S5 JMP MAIN 

CHK READ_CNTS: 

.M^'STSKiSS^Si- that wi!l be use. -dermal 
1560 conditions. It will be sent as a global command to all boards. Stop 

[-counting? iatch count, clear and restart counters, read counter latch and 

.load data into XFIFO. . 

cut NEW CMND processing command 

•The followinTcode up to NO_R0LL_0VR4 label is for diagnostics only- The Get 
15 6S iSounts^Tcounter'is transmitted to ^ster^af ter^reciept o^SNO.DEBUG 
MOV R0, #GC_RCV_LSB 
INC 9R0 

CJNE 8R0,#0,NO_ROLL_OVR4 
INC R0 
1570 INC 9R0 

CJNE 9R0,#0,NO_ROLL_OVR4 
INC R0 
INC 8R0 

CJNE 9R0,#0,NO_ROLL_OVR4 
1575 MOV 9R0, #0FFH 

DEC R0 

MOV 9R0,#0FFH 
DEC R0 

MOV 9RO,#0FFH 
1580 NO_ROLL_OVR4 : 

CALL READ.CNTRS 

MOV R0,#CNTR„BUF 

MOV B,#34 

CALL XMIT_DATA 
1585 JNB PKT_IN_PR0G , NO_PKT 

CALL STOP_PKT 
NO_PKT: 

JMP MAIN 



;Pt to LSB of # Get Counts Received 
.•Increment # Get Counts Received 
; jump Unless Byte Rolled over 
;If LB rolled, pt to next byte 
; . . . and increment 
;Jump Unless Byte rolled over 
;Pt to next byte 
;...and increment 

;Jump Unless High byte rolled over 
;Set All #Get Counts bytes to FF 



Pt to 1st byte in counter buffer 

Number of bytes to XMIT, excluding STATUS 

Trans B bytes begining at R0 



1590 



1595 



1600 



1605 



1610 



1615 



CHK_RESEND: 

CJNE A, • RES END, CHK_TEST_DATA C f rt r~i in RAM 

; RES END reloads the XFIFO with the last counter data which is stored in RAM 
;at CNTR_BUF. The counters are not latched, reset or read. 

rm new cmnd ; Processing command 

•The^oll^inTcode up to NO_ROLL_OVR2 label is for diagnostics only. The Reloads 
iRec'd cou^tel is transmitted to Master after reciept of SND_DEBUO cmnd. 
_ _ __. icn «f * Reloads Received 



MOV R0 , #RL_RCV_LSB 
INC 9R0 

CJNE «R0,l0,NO_ROLL__OVR2 
INC R0 
INC 9R0 

CJNE 9R0 # l0,NO_ROLL_OVR2 

MOV 9R0,#0FFH 

MOV R0, IRL_RCV_LSB 

MOV 8R0,#0FFH 
NO _£OLL_OVR2 : 

MOV R0,#CNTH_BUF 

MOV B,#34 

CALL XMIT_DATA 

JNB PKT.IN.PROG . NO_PKT0 

CALL STOP_PKT 
NO.PKT0: 

JMP MAIN 



I stuck o*«* - --r — 

Pt to LSB of # Reloads Received 
Increment • Reloads Received 
Jump Unless Byte Rolled over 
If LB rolled, pt to Hb 
...and increment 
Jump Unless HB rolled over 
Set Both # reload bytes to FF 



;Pt to 1st byte in counter buffer 

.Number of bytes to XMIT, excluding STATUS 

; Trans B bytes begining at R0 



CHK_TEST_DATA: 

CJNE A,#TEST_DATA,CHK_SND_STS 
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1620 



1625 



1630 



' C0U .^ 3 X inc RCV.LSB -increment • <*\*gl lmA over 

.jump Un^ss Byte ^ 
: lf LB rolled* pt w 
...and increment 
Jui np Unless**" roll, 
.pt to next byte 

..and increment roUe d over 



1635 



1640 



1645 



1650 



"mov ro,#gc_rcv_lsb 

INC R0 

^rHMO.NO-KOUL.OVRS 

INC R0 

„W SBO.IOrFH 
SS5 W0..0FFH 

INC DATA_LP: 
INC R0 

BR1J0FFH 

nuv 9^;°^ H 
SJHP NEXT.LB 
NO^OLL-OVR: 
««* R0 



MOV 
INC 
MOV 



;Pt to LB of 1st test data 

• increment test J* ta QVer 

. JuW p ui*«» to HB 

• If LB rolled, pt 

''•••■^Sr/S "rolled over 
;ju *p unless HB ro 

;P t to data word HB 



1655 



1660 



1665 



INC 
NEXT_LBi 

H0 V RO.IDUMIfO^LSB 
MOV B,#34 
CALL XMIT.DATA 



MOV 
COPY_BUF 
MOV 
MOV 
INC 
INC 



1670 



1675 



1680 



A.3R0 
0R1.A 

R° 

CALL STOP.PCT 



. Pt to next data word LB 



■ copy ^ftet to next byte 

, Point Source ba«« ^ 

Point oest ba""*/ 

jubP if not at end 



JMP MAIH 

rror is detected. 

^cK^S.^^ ^en -r transit or receive e 
1 NEW CMND _ R0LL-OVR3 label is iept 0 f SND -DEBUG o» 

on 



1685 



1690 



1695 



INC RO 

M OV «RO.tOFFH 
NO^ROLU-OVTO: _ 
MOV DPTR,tCMDR 

CLEARl: 

MOVX A*9DPTR , 
JB ACC. 2, CLEARl 
MOV A.IRHR 
MOVX 8DPTR.A 
MOV DPTRJCMDR 
CLR XFIF0_RDV 
CLEAR2: 



0VR3 laWA reciept of SHRJ* 

t0 Master after re ^ ted 

;Pt to LSB of t « ^ected , 
• increment I ^ 0I wlltd over 
.jump unless Byte k° 
'.ITlB rolled, Pt to 
and increment 

irB^Terfor^eiro- 

, „ , ese t W* F0 
;S CC Comnand refl - « ese 

.„d Executing is clear 
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1700 MOVX A.9DPTR 

JB ACC . 2 , CLEAR 2 

CLR PKT.QUED 

MOV A. IXRES 

MOVX 9 DPTR , A 
1705 WT_FOR_INT5 : 

JNB XFIFO.RDY, WT_FOR_INT5 





LOAD.STS : 




CLR 


XFIFO.RDY 




MOV 


A, IMSTR_ADD 


1710 


MOV 


DPTR,*FIFO 




MOVX 


9DPTR, A 




MOV 


A, ISDLC_CTL 




MOVX 


8 DPTR, A 




MOV 


A, STATUS 


1715 


MOVX 


9 DPTR, A 




MOV 


STATUS, #0 




MOV 


DPTR, ICMDR 




CLEAR3: 






MOVX 


A, 9DPTR 


1720 


JB 


ACC.2,CLEAR3 




MOV 


A, *XTF_XME 




MOVX 


9 DPTR, A 




JNB 


PKT_IN_PROG , NO.PXT2 




CALL 


STOP_PKT 


1725 


NO_PKT2 






JMP 


MAIN 



;Wait til Command Executing (CEC) is clear 
;Be sure XPR from XRES does not trigger Tl Int 
;Send Transmit Reset (XRES) to reset XFIFO 

,-Wait for Trans Pool Ready INT 
; . . .after XFIFO reset 

; Indicate XFIFO not ready during trans 

.•Masters address must be inserted for transparent 

; . . . frame. 

;Load into XFIFO 

;SDLC Control byte must be inserted for transparent 
; . . . . frame . 

; STATUS is 1st byte of every trans 
/Current status sent, so clear 



;Wait til Command Executing (CEC) is clear 
;Send XTF and Trans Message End 

command to SCC to finish I frame. 



o 

ru 

in 

o 



1730 



1735 



1740 



1745 



1750 



1755 



1760 



1765 



CHK.RD_.TEMP: 

; Reads DS1620 temp sensor and loads 
CJNE A,IRD_TEMP.CHK_RES_XNR 
CLR NEW_CMND 
CALL READJTEMP 
JB XFIFO_RDY, LOAD_TEMP 
MOV DPTR, ICMDR 
CLEAR 4 : 
MOVX 
JB 
CLR 
MOV 



A, 0 DPTR 
ACC.2,CLEAR4 
PKT.QUED 
A,#XRES 
MOVX 9DPTR, A 
WT_FOR_INT6 : 

JNB XFIFO_RDY, WT_.FOR_.INT6 
LOADJTEMP: 

CLR XFIFO_RDY 
MOV A, IMSTKjADD 
MOV DPTR, IFIFO 
MOVX 9 DPTR, A 
MOV A, #SDLC_CTL 
MOVX 9 DPTR, A 
MOV A, STATUS 
MOVX 9 DPTR, A 
MOV STATUS, #0 
MOV A,TEMP_LSB 
INC DPTR 
MOVX 9 DPTR, A 
MOV A,TEMP_MSB 
MOVX 9 DPTR, A 
MOV DPTR, ICMDR 
MOV A,*XTF_XME 
MOVX 9 DPTR, A 

JNB PKT_IN_PROG , NO_PKT3 
CALL STOP_PKT 
NO_PKT3 : 

JMP MAIN 



value into XFIFO. 

Processing current command 
Read DS1620 into TEMP_ LSB/MSB 

SCC Command reg - reset XFIFO 



Wait til Command Executing (CEC) is clear 
Be sure XPR from XRES does not trigger Tl Int 



;Wait for Trans Pool Ready INT 
after XFIFO reset 

Indicate XFIFO not ready during trans 

Masters address must be inserted for transparent 

. . .frame. 

Load into XFIFO 

SDLC Control byte must be inserted for transparent 
.... frame. 

STATUS is 1st byte of every trans 
; Current status sent, so clear 



Send XTF and Trans Message End 
...command to SCC to finish 
... I frame . 



1770 



1775 



1780 



CHK_R£S_XNR: 

; Resets SCC'c Receiver and Transmitter and clears diagnostic counters GC_RCV, 
;RL_RCV and NUMERR. 



CJNE A, #RES_XNR, CHX_SET_DACS 
CLR NEW.CMND 
MOV DPTR, ICMDR 
CLEARS: 

MOVX A, 9DPTR 
JB ACC. 2. CLEARS 
CLR PKT_QUED 
MOV A, IXRES 
MOVX 9DPTR.A 
CLEAR6 : 



/Processing current command 
;SCC Command reg - reset XFIFO 



Wait til Command Executing (CEC) is clear 
Be sure XPR from XRES does not trigger Tl Int 
.if not ready 
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MOV . cleaI All B-*W into 

MOV RO,IGC_K cv -" J 
" 8S MOV 8*0.10 

HEXTBYTB: 
INC BO 

« 0V 9R ^' 1M1MERR MSB.NEXTBYTE 

CALL STOP_PK T 
JMP 



1790 
1795 



, ^ .eacH—* -respond value 

f data. Loads eacn 

;«s«»Si*.«*» c! ... „ c , „«, i— « 



.... IsflB^r^ 5 

CALL STOP_PKT 

DAC SAV buffer 

SSl stop m 

1815 N0J>KT6: 
JMP 



1820 
1825 



rLR NtW-CM* 10 t mdo bit for stre x to 

'".are cleat. 



CALL RKH-S ' set to no stretch —>*/• 



1835 
1B40 



CALL STOi_Pl» 

NO-WT7: 

JMP MA 111 



cet Counts R«c o. 
. only It transmits the Get c 

MOV Br*' ' 



MOV B t ■ ' 

18» 5 SiL SWP_PCT 

N0 _PKT8: 

JMP MAIN 



18S ° NO VAL.CMKO: 
JMP MAIN 



1B55 bo ; En* 0 



t VACISBBD.ASM module 




